COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST3"
C00004 ENDMK
C⊗;
BEGIN "TEST3"
	REQUIRE "MESGEM.HDR" SOURCE_FILE;
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;

	INTEGER B1,B2,B3;
	INTEGER F,E,V1,V2;

	MKUNIV;GEODPY;
	B1 ← MKBFV;
	V1 ← V2 ← PVT(B1);

	F  ← PFACE(B1);
	V2 ← MKEV(F,V2); TRANSL(V2,1,1,0);GEODPY;INCHRW;
	V2 ← MKEV(F,V2); TRANSL(V2,-1,1,0);GEODPY;INCHRW;
	V2 ← MKEV(F,V2); TRANSL(V2,-1,-1,0);GEODPY;INCHRW;

	E ← MKFE(V1,F,V2);GEODPY;INCHRW;
	F ← NFACE(E);
	TRANSL(F,0,2,0);
	SWEEP(F,0);ROTATE(F,π/2,0,0);GEODPY;INCHRW;
	SWEEP(F,0);ROTATE(F,π/2,0,0);GEODPY;INCHRW;
	SWEEP(F,0);ROTATE(F,π/2,0,0);GEODPY;INCHRW;

END "TEST3";